00010	BEGIN "KISAY"
00020	DEFINE ⊂="COMMENT";
00030	⊂ To say utterance on the speaker if ESC 4U has been typed;
00040	DEFINE CR="'15",LF="'12",CRLF="CR&LF";
00050	
00060	REQUIRE "KIPLAY.REL[KI,ALS]" LOAD_MODULE;
00070	REQUIRE "IO.REL[X,ALS]" LIBRARY;
00080	REQUIRE "SUIO.REL[X,ALS]" LIBRARY;
00090	REQUIRE "LIB.REL[NET,NJM]" LIBRARY;
00100	EXTERNAL FORTRAN PROCEDURE KIMAIN;
00110	INTEGER PP,CHAN1,EOF,BRCHR,COUNT; STRING READ,FILEN; BOOLEAN ER;
00115	INTEGER SEGNAM;
00120	
00130	
00140	LABEL STARTP;
00150	
00155	CHAN1←1;
00160	STDBRK(1);
00170	STARTP:
00180	CLOSE(CHAN1); OPEN(CHAN1,"DSK",0,1,0,10,BRCHR,EOF);
00190	LOOKUP(CHAN1,"KIFILE.TMP",ER);
00200	IF ER THEN BEGIN
00210	  OUTSTR("Type file name (without .SAY[KI,ALS])");
00220	  READ←INCHWL;
00230	  IF READ="" THEN FILEN←"AGAIN" ELSE FILEN←READ;
00240	  END ELSE BEGIN
00250	  FILEN←INPUT(CHAN1,1);
00252	⊂  RENAME(CHAN1,NULL,0,0);
00255	  END;
00260	  CLOSE(CHAN1);
00272	  OUTSTR("Filen is "&FILEN&"octal="&CVOS(FILEN)&CRLF);
00279	FILEN←FILEN[1 TO 5];
00281	PP←CVASC(FILEN);
00284	START_CODE '047000400037; MOVEM 0,SEGNAM; '047040400017; END;
00287	⊂ Get segment name and detach;
00290	  KIMAIN(PP);
00315	START_CODE MOVE 0,SEGNAM; '047000400016; JFCL; END;
00320	⊂ Reattach segment so exit will be in order;
00340	 CALL(0,"EXIT");
00400	END "KISAY";